home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Visual Basic.60 / COMMON / TOOLS / VCM / VCM.MDB / VcmComponentContainer / 04_Cabinet / rptNwind.dsr < prev    next >
Encoding:
Visual Basic Active Designer file  |  1998-05-18  |  21.7 KB  |  578 lines
  1. VERSION 5.00
  2. Begin {78E93846-85FD-11D0-8487-00A0C90DC8A9} rptNwind 
  3.    Bindings        =   "rptNwind.dsx":0000
  4.    Caption         =   "Northwind Data Report"
  5.    ClientHeight    =   8595
  6.    ClientLeft      =   1335
  7.    ClientTop       =   2655
  8.    ClientWidth     =   11880
  9.    _ExtentX        =   20955
  10.    _ExtentY        =   15161
  11.    _Version        =   393216
  12.    _DesignerVersion=   100684049
  13.    ReportWidth     =   8352
  14.    BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  15.       Name            =   "Arial"
  16.       Size            =   8.25
  17.       Charset         =   0
  18.       Weight          =   400
  19.       Underline       =   0   'False
  20.       Italic          =   0   'False
  21.       Strikethrough   =   0   'False
  22.    EndProperty
  23.    GridX           =   10
  24.    GridY           =   10
  25.    DataMember      =   "Customers_Grouping"
  26.    NumSections     =   11
  27.    SectionCode0    =   1
  28.    BeginProperty Section0 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9} 
  29.       _Version        =   393216
  30.       Name            =   "ReportHeader"
  31.       Object.Height          =   360
  32.       NumControls     =   0
  33.    EndProperty
  34.    SectionCode1    =   3
  35.    BeginProperty Section1 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9} 
  36.       _Version        =   393216
  37.       Name            =   "Customers_Grouping_Header"
  38.       Object.Height          =   255
  39.       NumControls     =   1
  40.       ItemType0       =   4
  41.       BeginProperty Item0 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9} 
  42.          _Version        =   393216
  43.          Name            =   "txtCountry"
  44.          Object.Width           =   2880
  45.          Object.Height          =   240
  46.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  47.             Name            =   "Arial"
  48.             Size            =   8.25
  49.             Charset         =   0
  50.             Weight          =   400
  51.             Underline       =   0   'False
  52.             Italic          =   0   'False
  53.             Strikethrough   =   0   'False
  54.          EndProperty
  55.          DataField       =   "Country"
  56.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  57.             Type            =   0
  58.             Format          =   ""
  59.             HaveTrueFalseNull=   0
  60.             FirstDayOfWeek  =   0
  61.             FirstWeekOfYear =   0
  62.             LCID            =   1024
  63.          EndProperty
  64.          DataMember      =   "Customers_Grouping"
  65.       EndProperty
  66.    EndProperty
  67.    SectionCode2    =   3
  68.    BeginProperty Section2 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9} 
  69.       _Version        =   393216
  70.       Name            =   "Customers_Header"
  71.       Object.Height          =   285
  72.       NumControls     =   1
  73.       ItemType0       =   4
  74.       BeginProperty Item0 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9} 
  75.          _Version        =   393216
  76.          Name            =   "txtCompanyName"
  77.          Object.Left            =   864
  78.          Object.Width           =   2016
  79.          Object.Height          =   240
  80.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  81.             Name            =   "Arial"
  82.             Size            =   8.25
  83.             Charset         =   0
  84.             Weight          =   400
  85.             Underline       =   0   'False
  86.             Italic          =   0   'False
  87.             Strikethrough   =   0   'False
  88.          EndProperty
  89.          DataField       =   "CompanyName"
  90.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  91.             Type            =   0
  92.             Format          =   ""
  93.             HaveTrueFalseNull=   0
  94.             FirstDayOfWeek  =   0
  95.             FirstWeekOfYear =   0
  96.             LCID            =   1024
  97.          EndProperty
  98.          DataMember      =   "Customers"
  99.       EndProperty
  100.    EndProperty
  101.    SectionCode3    =   3
  102.    BeginProperty Section3 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9} 
  103.       _Version        =   393216
  104.       Name            =   "Orders_Header"
  105.       Object.Height          =   384
  106.       NumControls     =   3
  107.       ItemType0       =   4
  108.       BeginProperty Item0 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9} 
  109.          _Version        =   393216
  110.          Name            =   "txtOrderDate"
  111.          Object.Left            =   1440
  112.          Object.Width           =   1440
  113.          Object.Height          =   240
  114.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  115.             Name            =   "Arial"
  116.             Size            =   8.25
  117.             Charset         =   0
  118.             Weight          =   400
  119.             Underline       =   0   'False
  120.             Italic          =   0   'False
  121.             Strikethrough   =   0   'False
  122.          EndProperty
  123.          DataField       =   "OrderDate"
  124.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  125.             Type            =   0
  126.             Format          =   ""
  127.             HaveTrueFalseNull=   0
  128.             FirstDayOfWeek  =   0
  129.             FirstWeekOfYear =   0
  130.             LCID            =   1024
  131.          EndProperty
  132.          DataMember      =   "Orders"
  133.       EndProperty
  134.       ItemType1       =   4
  135.       BeginProperty Item1 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9} 
  136.          _Version        =   393216
  137.          Name            =   "txtProductCount"
  138.          Object.Left            =   3600
  139.          Object.Width           =   432
  140.          Object.Height          =   285
  141.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  142.             Name            =   "Arial"
  143.             Size            =   8.25
  144.             Charset         =   0
  145.             Weight          =   400
  146.             Underline       =   0   'False
  147.             Italic          =   0   'False
  148.             Strikethrough   =   0   'False
  149.          EndProperty
  150.          DataField       =   "ProductCount"
  151.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  152.             Type            =   0
  153.             Format          =   ""
  154.             HaveTrueFalseNull=   0
  155.             FirstDayOfWeek  =   0
  156.             FirstWeekOfYear =   0
  157.             LCID            =   1024
  158.          EndProperty
  159.          DataMember      =   "Orders"
  160.       EndProperty
  161.       ItemType2       =   3
  162.       BeginProperty Item2 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
  163.          _Version        =   393216
  164.          Name            =   "Label6"
  165.          Object.Left            =   4320
  166.          Object.Width           =   1875
  167.          Object.Height          =   285
  168.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  169.             Name            =   "Arial"
  170.             Size            =   8.25
  171.             Charset         =   0
  172.             Weight          =   400
  173.             Underline       =   0   'False
  174.             Italic          =   0   'False
  175.             Strikethrough   =   0   'False
  176.          EndProperty
  177.          Object.Caption         =   "Product(s) Ordered"
  178.       EndProperty
  179.    EndProperty
  180.    SectionCode4    =   3
  181.    BeginProperty Section4 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9} 
  182.       _Version        =   393216
  183.       Name            =   "OrderDetails_Header"
  184.       NumControls     =   0
  185.    EndProperty
  186.    SectionCode5    =   4
  187.    BeginProperty Section5 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9} 
  188.       _Version        =   393216
  189.       Name            =   "Products_Detail"
  190.       Object.Height          =   300
  191.       NumControls     =   6
  192.       ItemType0       =   4
  193.       BeginProperty Item0 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9} 
  194.          _Version        =   393216
  195.          Name            =   "txtProductName"
  196.          Object.Left            =   1872
  197.          Object.Width           =   1440
  198.          Object.Height          =   240
  199.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  200.             Name            =   "Arial"
  201.             Size            =   8.25
  202.             Charset         =   0
  203.             Weight          =   400
  204.             Underline       =   0   'False
  205.             Italic          =   0   'False
  206.             Strikethrough   =   0   'False
  207.          EndProperty
  208.          DataField       =   "ProductName"
  209.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  210.             Type            =   0
  211.             Format          =   ""
  212.             HaveTrueFalseNull=   0
  213.             FirstDayOfWeek  =   0
  214.             FirstWeekOfYear =   0
  215.             LCID            =   1024
  216.          EndProperty
  217.          DataMember      =   "Products"
  218.       EndProperty
  219.       ItemType1       =   4
  220.       BeginProperty Item1 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9} 
  221.          _Version        =   393216
  222.          Name            =   "txtUnitPrice"
  223.          Object.Left            =   4320
  224.          Object.Width           =   1005
  225.          Object.Height          =   240
  226.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  227.             Name            =   "Arial"
  228.             Size            =   8.25
  229.             Charset         =   0
  230.             Weight          =   400
  231.             Underline       =   0   'False
  232.             Italic          =   0   'False
  233.             Strikethrough   =   0   'False
  234.          EndProperty
  235.          DataField       =   "UnitPrice"
  236.          Alignment       =   1
  237.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  238.             Type            =   1
  239.             Format          =   """$""#,##0.00"
  240.             HaveTrueFalseNull=   0
  241.             FirstDayOfWeek  =   0
  242.             FirstWeekOfYear =   0
  243.             LCID            =   1033
  244.          EndProperty
  245.          DataMember      =   "OrderDetails"
  246.       EndProperty
  247.       ItemType2       =   4
  248.       BeginProperty Item2 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9} 
  249.          _Version        =   393216
  250.          Name            =   "txtQuantity"
  251.          Object.Left            =   3600
  252.          Object.Width           =   432
  253.          Object.Height          =   285
  254.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  255.             Name            =   "Arial"
  256.             Size            =   8.25
  257.             Charset         =   0
  258.             Weight          =   400
  259.             Underline       =   0   'False
  260.             Italic          =   0   'False
  261.             Strikethrough   =   0   'False
  262.          EndProperty
  263.          DataField       =   "Quantity"
  264.          Alignment       =   1
  265.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  266.             Type            =   0
  267.             Format          =   ""
  268.             HaveTrueFalseNull=   0
  269.             FirstDayOfWeek  =   0
  270.             FirstWeekOfYear =   0
  271.             LCID            =   1024
  272.          EndProperty
  273.          DataMember      =   "OrderDetails"
  274.       EndProperty
  275.       ItemType3       =   4
  276.       BeginProperty Item3 {1C13A8E2-A0B6-11D0-848E-00A0C90DC8A9} 
  277.          _Version        =   393216
  278.          Name            =   "txtTotal"
  279.          Object.Left            =   5472
  280.          Object.Width           =   1155
  281.          Object.Height          =   240
  282.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  283.             Name            =   "Arial"
  284.             Size            =   8.25
  285.             Charset         =   0
  286.             Weight          =   700
  287.             Underline       =   0   'False
  288.             Italic          =   0   'False
  289.             Strikethrough   =   0   'False
  290.          EndProperty
  291.          DataField       =   "Total"
  292.          Alignment       =   1
  293.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  294.             Type            =   1
  295.             Format          =   """$""#,##0.00"
  296.             HaveTrueFalseNull=   0
  297.             FirstDayOfWeek  =   0
  298.             FirstWeekOfYear =   0
  299.             LCID            =   1033
  300.          EndProperty
  301.          DataMember      =   "OrderDetails"
  302.       EndProperty
  303.       ItemType4       =   3
  304.       BeginProperty Item4 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
  305.          _Version        =   393216
  306.          Name            =   "Label1"
  307.          Object.Left            =   4176
  308.          Object.Width           =   135
  309.          Object.Height          =   285
  310.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  311.             Name            =   "Arial"
  312.             Size            =   8.25
  313.             Charset         =   0
  314.             Weight          =   400
  315.             Underline       =   0   'False
  316.             Italic          =   0   'False
  317.             Strikethrough   =   0   'False
  318.          EndProperty
  319.          Object.Caption         =   "*"
  320.       EndProperty
  321.       ItemType5       =   3
  322.       BeginProperty Item5 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
  323.          _Version        =   393216
  324.          Name            =   "Label2"
  325.          Object.Left            =   5328
  326.          Object.Width           =   285
  327.          Object.Height          =   285
  328.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  329.             Name            =   "Arial"
  330.             Size            =   8.25
  331.             Charset         =   0
  332.             Weight          =   400
  333.             Underline       =   0   'False
  334.             Italic          =   0   'False
  335.             Strikethrough   =   0   'False
  336.          EndProperty
  337.          Object.Caption         =   "="
  338.       EndProperty
  339.    EndProperty
  340.    SectionCode6    =   5
  341.    BeginProperty Section6 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9} 
  342.       _Version        =   393216
  343.       Name            =   "OrderDetails_Footer"
  344.       NumControls     =   0
  345.    EndProperty
  346.    SectionCode7    =   5
  347.    BeginProperty Section7 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9} 
  348.       _Version        =   393216
  349.       Name            =   "Orders_Footer"
  350.       Object.Height          =   288
  351.       NumControls     =   3
  352.       ItemType0       =   13
  353.       BeginProperty Item0 {49FF6930-2B8C-11D1-8DA9-00A0C90FFFC2} 
  354.          _Version        =   393216
  355.          Name            =   "Function1"
  356.          Object.Left            =   5472
  357.          Object.Width           =   1155
  358.          Object.Height          =   240
  359.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  360.             Name            =   "Arial"
  361.             Size            =   8.25
  362.             Charset         =   0
  363.             Weight          =   700
  364.             Underline       =   0   'False
  365.             Italic          =   0   'False
  366.             Strikethrough   =   0   'False
  367.          EndProperty
  368.          DataField       =   "Total"
  369.          Alignment       =   1
  370.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  371.             Type            =   1
  372.             Format          =   """$""#,##0.00"
  373.             HaveTrueFalseNull=   0
  374.             FirstDayOfWeek  =   0
  375.             FirstWeekOfYear =   0
  376.             LCID            =   1033
  377.          EndProperty
  378.          DataMember      =   "OrderDetails"
  379.       EndProperty
  380.       ItemType1       =   5
  381.       BeginProperty Item1 {1C13A8E3-A0B6-11D0-848E-00A0C90DC8A9} 
  382.          _Version        =   393216
  383.          Name            =   "Line1"
  384.          Object.Left            =   5472
  385.          Object.Width           =   1152
  386.       EndProperty
  387.       ItemType2       =   3
  388.       BeginProperty Item2 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
  389.          _Version        =   393216
  390.          Name            =   "Label3"
  391.          Object.Left            =   4320
  392.          Object.Width           =   1152
  393.          Object.Height          =   288
  394.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  395.             Name            =   "Arial"
  396.             Size            =   8.25
  397.             Charset         =   0
  398.             Weight          =   700
  399.             Underline       =   0   'False
  400.             Italic          =   0   'False
  401.             Strikethrough   =   0   'False
  402.          EndProperty
  403.          Object.Caption         =   "Order Total"
  404.          Alignment       =   1
  405.       EndProperty
  406.    EndProperty
  407.    SectionCode8    =   5
  408.    BeginProperty Section8 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9} 
  409.       _Version        =   393216
  410.       Name            =   "Customers_Footer"
  411.       Object.Height          =   288
  412.       NumControls     =   2
  413.       ItemType0       =   13
  414.       BeginProperty Item0 {49FF6930-2B8C-11D1-8DA9-00A0C90FFFC2} 
  415.          _Version        =   393216
  416.          Name            =   "Function2"
  417.          Object.Left            =   5472
  418.          Object.Width           =   1155
  419.          Object.Height          =   240
  420.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  421.             Name            =   "Arial"
  422.             Size            =   8.25
  423.             Charset         =   0
  424.             Weight          =   700
  425.             Underline       =   0   'False
  426.             Italic          =   0   'False
  427.             Strikethrough   =   0   'False
  428.          EndProperty
  429.          DataField       =   "Total"
  430.          Alignment       =   1
  431.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  432.             Type            =   1
  433.             Format          =   """$""#,##0.00"
  434.             HaveTrueFalseNull=   0
  435.             FirstDayOfWeek  =   0
  436.             FirstWeekOfYear =   0
  437.             LCID            =   1033
  438.          EndProperty
  439.          DataMember      =   "OrderDetails"
  440.       EndProperty
  441.       ItemType1       =   3
  442.       BeginProperty Item1 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
  443.          _Version        =   393216
  444.          Name            =   "Label4"
  445.          Object.Left            =   4176
  446.          Object.Width           =   1440
  447.          Object.Height          =   288
  448.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  449.             Name            =   "Arial"
  450.             Size            =   8.25
  451.             Charset         =   0
  452.             Weight          =   700
  453.             Underline       =   0   'False
  454.             Italic          =   0   'False
  455.             Strikethrough   =   0   'False
  456.          EndProperty
  457.          Object.Caption         =   "Customer Total"
  458.       EndProperty
  459.    EndProperty
  460.    SectionCode9    =   5
  461.    BeginProperty Section9 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9} 
  462.       _Version        =   393216
  463.       Name            =   "Customers_Grouping_Footer"
  464.       Object.Height          =   360
  465.       NumControls     =   0
  466.    EndProperty
  467.    SectionCode10   =   8
  468.    BeginProperty Section10 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9} 
  469.       _Version        =   393216
  470.       Name            =   "ReportFooter"
  471.       Object.Height          =   429
  472.       NumControls     =   2
  473.       ItemType0       =   13
  474.       BeginProperty Item0 {49FF6930-2B8C-11D1-8DA9-00A0C90FFFC2} 
  475.          _Version        =   393216
  476.          Name            =   "Function3"
  477.          Object.Left            =   4896
  478.          Object.Width           =   1740
  479.          Object.Height          =   285
  480.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  481.             Name            =   "Arial"
  482.             Size            =   8.25
  483.             Charset         =   0
  484.             Weight          =   700
  485.             Underline       =   0   'False
  486.             Italic          =   0   'False
  487.             Strikethrough   =   0   'False
  488.          EndProperty
  489.          DataField       =   "Total"
  490.          Alignment       =   1
  491.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  492.             Type            =   1
  493.             Format          =   """$""#,##0.00"
  494.             HaveTrueFalseNull=   0
  495.             FirstDayOfWeek  =   0
  496.             FirstWeekOfYear =   0
  497.             LCID            =   1033
  498.          EndProperty
  499.          DataMember      =   "OrderDetails"
  500.       EndProperty
  501.       ItemType1       =   3
  502.       BeginProperty Item1 {1C13A8E1-A0B6-11D0-848E-00A0C90DC8A9} 
  503.          _Version        =   393216
  504.          Name            =   "Label5"
  505.          Object.Left            =   2448
  506.          Object.Width           =   2304
  507.          Object.Height          =   288
  508.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  509.             Name            =   "Arial"
  510.             Size            =   8.25
  511.             Charset         =   0
  512.             Weight          =   700
  513.             Underline       =   0   'False
  514.             Italic          =   0   'False
  515.             Strikethrough   =   0   'False
  516.          EndProperty
  517.          Object.Caption         =   "Report Grand Total"
  518.          Alignment       =   1
  519.       EndProperty
  520.    EndProperty
  521. End
  522. Attribute VB_Name = "rptNwind"
  523. Attribute VB_GlobalNameSpace = False
  524. Attribute VB_Creatable = False
  525. Attribute VB_PredeclaredId = True
  526. Attribute VB_Exposed = False
  527. Option Explicit
  528.  
  529. Private Sub DataReport_Initialize()
  530.     AddExportReport ' Add a custom format.
  531.     
  532.     With rptNwind ' Adjust size of report using screen measurements supplied by SysInfo control.
  533.         .Left = 1000
  534.         .Top = 1000
  535.         .Width = frmShowReport.sysInfo.WorkAreaWidth * 0.75
  536.         .Height = frmShowReport.sysInfo.WorkAreaHeight * 0.75
  537.     End With
  538. End Sub
  539.  
  540. Private Sub DataReport_ProcessingTimeout(ByVal Seconds As Long, _
  541. Cancel As Boolean, ByVal JobType As MSDataReportLib.AsyncTypeConstants, _
  542. ByVal Cookie As Long)
  543.  
  544.  
  545. End Sub
  546.  
  547. Private Sub AddExportReport()
  548.     Dim strTemplate As String
  549.     ' Create the template.
  550.     strTemplate = _
  551.     "<HTML>" & vbCrLf & _
  552.     "<HEAD>" & vbCrLf & _
  553.     "<TITLE>" & "MyCompany: " & rptTagTitle & _
  554.     "</TITLE>" & vbCrLf & _
  555.     "<BODY>" & vbCrLf & _
  556.     rptTagBody & vbCrLf & _
  557.     "<BODY>" & vbCrLf & _
  558.     "</HTML>"
  559.     ' Add an ExportFormat object using the new template.
  560.         
  561.         
  562.     rptNwind.ExportFormats.Add _
  563.     Key:="DailyReport", _
  564.     FormatType:=rptFmtHTML, _
  565.     FileFormatString:="Daily Report (*.htm)", _
  566.     FileFilter:="*.HTM", _
  567.     Template:=strTemplate
  568. End Sub
  569.  
  570. Private Sub DataReport_QueryClose(Cancel As Integer, CloseMode As Integer)
  571.     
  572.     While rptNwind.AsyncCount > 0
  573.         DoEvents
  574.     Wend
  575.     
  576. End Sub
  577.  
  578.